object fmCustomer: TfmCustomer
  Left = 0
  Top = 0
  Caption = 'Customer Management'
  ClientHeight = 498
  ClientWidth = 735
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  DesignSize = (
    735
    498)
  PixelsPerInch = 96
  TextHeight = 13
  object Label9: TLabel
    Left = 8
    Top = 8
    Width = 65
    Height = 13
    Caption = 'Customer List'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 227
    Width = 719
    Height = 227
    Anchors = [akLeft, akRight, akBottom]
    Caption = 'Details'
    TabOrder = 1
    object Label1: TLabel
      Left = 68
      Top = 150
      Width = 14
      Height = 13
      Caption = '&Tel'
    end
    object Label2: TLabel
      Left = 228
      Top = 150
      Width = 18
      Height = 13
      Caption = '&Fax'
    end
    object Label3: TLabel
      Left = 336
      Top = 123
      Width = 26
      Height = 13
      Caption = '&State'
    end
    object Label4: TLabel
      Left = 503
      Top = 123
      Width = 19
      Height = 13
      Caption = '&City'
    end
    object Label5: TLabel
      Left = 155
      Top = 123
      Width = 39
      Height = 13
      Caption = '&Country'
    end
    object Label7: TLabel
      Left = 276
      Top = 204
      Width = 65
      Height = 13
      Caption = '&Contact'#39's TEL'
    end
    object Label6: TLabel
      Left = 480
      Top = 35
      Width = 61
      Height = 13
      Caption = '* Required'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 8
      Top = 72
      Width = 57
      Height = 13
      Caption = '(Optional)'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object txtCompanyName: TLabeledEdit
      Left = 88
      Top = 32
      Width = 386
      Height = 21
      EditLabel.Width = 75
      EditLabel.Height = 13
      EditLabel.Caption = '&Company Name'
      LabelPosition = lpLeft
      MaxLength = 255
      TabOrder = 0
    end
    object txtAddress: TLabeledEdit
      Left = 88
      Top = 93
      Width = 488
      Height = 21
      EditLabel.Width = 39
      EditLabel.Height = 13
      EditLabel.Caption = '&Address'
      LabelPosition = lpLeft
      MaxLength = 255
      TabOrder = 1
    end
    object txtPostCode: TLabeledEdit
      Left = 88
      Top = 120
      Width = 57
      Height = 21
      EditLabel.Width = 49
      EditLabel.Height = 13
      EditLabel.Caption = '&Post Code'
      LabelPosition = lpLeft
      MaxLength = 5
      NumbersOnly = True
      TabOrder = 2
    end
    object txtTel: TMaskEdit
      Left = 88
      Top = 147
      Width = 115
      Height = 21
      TabOrder = 3
    end
    object txtFax: TMaskEdit
      Left = 252
      Top = 147
      Width = 115
      Height = 21
      TabOrder = 4
    end
    object txtContactHP: TMaskEdit
      Left = 347
      Top = 201
      Width = 127
      Height = 21
      TabOrder = 11
    end
    object txtContactName: TLabeledEdit
      Left = 88
      Top = 174
      Width = 386
      Height = 21
      EditLabel.Width = 68
      EditLabel.Height = 13
      EditLabel.Caption = 'Contact &Name'
      LabelPosition = lpLeft
      MaxLength = 255
      TabOrder = 9
    end
    object txtContactEmail: TLabeledEdit
      Left = 88
      Top = 201
      Width = 174
      Height = 21
      EditLabel.Width = 72
      EditLabel.Height = 13
      EditLabel.Caption = '&Contact'#39's Email'
      LabelPosition = lpLeft
      MaxLength = 255
      TabOrder = 10
    end
    object txtCompanyEmail: TLabeledEdit
      Left = 463
      Top = 147
      Width = 174
      Height = 21
      EditLabel.Width = 72
      EditLabel.Height = 13
      EditLabel.Caption = '&Company Email'
      LabelPosition = lpLeft
      MaxLength = 255
      TabOrder = 5
    end
    object dbcbCountry: TDBLookupComboBox
      Left = 200
      Top = 120
      Width = 121
      Height = 21
      KeyField = 'COUNTRY'
      ListField = 'COUNTRY'
      ListSource = dsCountry
      TabOrder = 6
      OnCloseUp = dbcbCountryCloseUp
    end
    object dbcbState: TDBLookupComboBox
      Left = 368
      Top = 120
      Width = 121
      Height = 21
      KeyField = 'STATE'
      ListField = 'STATE'
      ListSource = dsState
      TabOrder = 7
      OnCloseUp = dbcbStateCloseUp
    end
    object dbcbCity: TDBLookupComboBox
      Left = 528
      Top = 120
      Width = 121
      Height = 21
      KeyField = 'CITY'
      ListField = 'CITY'
      ListSource = dsCity
      TabOrder = 8
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 28
    Width = 719
    Height = 193
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = dsCustomers
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = [fsBold]
    OnDblClick = DBGrid1DblClick
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COMPANY_NAME'
        Title.Caption = 'Company Name'
        Width = 250
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ADDRESS'
        Title.Caption = 'Address'
        Width = 200
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'POSTCODE'
        Title.Caption = 'Post Code'
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CITY'
        Title.Caption = 'City'
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'STATE'
        Title.Caption = 'State'
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COUNTRY'
        Title.Caption = 'Country'
        Width = 67
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COMPANY_TEL'
        Title.Caption = 'Tel'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COMPANY_FAX'
        Title.Caption = 'Fax'
        Width = 97
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COMPANY_EMAIL'
        Title.Caption = 'Company Email'
        Width = 164
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CONTACT_NAME'
        Title.Caption = 'Contact Name'
        Width = 122
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CONTACT_EMAIL'
        Title.Caption = 'Contact Email'
        Width = 117
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CONTACT_TEL'
        Title.Caption = 'Contact TEL'
        Width = 100
        Visible = True
      end>
  end
  object btnNew: TButton
    Left = 295
    Top = 460
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&New'
    TabOrder = 2
    OnClick = btnNewClick
  end
  object btnDelete: TButton
    Left = 457
    Top = 460
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Delete'
    TabOrder = 4
    OnClick = btnDeleteClick
  end
  object btnSave: TButton
    Left = 376
    Top = 460
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Save'
    Default = True
    TabOrder = 3
    OnClick = btnSaveClick
  end
  object btnRefresh: TButton
    Left = 538
    Top = 460
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Refresh'
    TabOrder = 5
    OnClick = btnRefreshClick
  end
  object btnClose: TButton
    Left = 652
    Top = 460
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'C&lose'
    TabOrder = 6
    OnClick = btnCloseClick
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'C:\Invoice Managment - Delphi\invoicemanager.fdb'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    ServerType = 'IBServer'
    TraceFlags = [tfQExecute, tfError, tfStmt, tfConnect, tfTransact]
    Left = 560
    Top = 64
  end
  object IBTransaction1: TIBTransaction
    DefaultDatabase = IBDatabase1
    Left = 640
    Top = 64
  end
  object fbCountry: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end
      item
        Name = 'COUNTRY'
        Attributes = [faRequired]
        DataType = ftString
        Size = 255
      end>
    IndexDefs = <
      item
        Name = 'UNQ1_COUNTRY'
        Fields = 'ABBRIVIATION;COUNTRY'
        Options = [ixUnique]
      end
      item
        Name = 'PK_COUNTRY'
        Fields = 'ID'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ2_COUNTRY'
        Fields = 'ABBRIVIATION'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'COUNTRY'
    Left = 560
    Top = 120
  end
  object fbState: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end
      item
        Name = 'STATE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 255
      end
      item
        Name = 'COUNTRY_ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end>
    IndexDefs = <
      item
        Name = 'PK_STATE'
        Fields = 'ID'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ1_STATE'
        Fields = 'ABBRIVIATION;STATE'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ2_STATE'
        Fields = 'ABBRIVIATION'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'COUNTRY_ABBRIVIATION'
    MasterFields = 'ABBRIVIATION'
    MasterSource = dsCountry
    StoreDefs = True
    TableName = 'STATE'
    Left = 616
    Top = 120
  end
  object fbCity: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'CITY'
        Attributes = [faRequired]
        DataType = ftString
        Size = 255
      end
      item
        Name = 'STATE_ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end
      item
        Name = 'COUNTRY_ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end>
    IndexDefs = <
      item
        Name = 'UNQ1_CITY'
        Fields = 'CITY;STATE_ABBRIVIATION;COUNTRY_ABBRIVIATION'
        Options = [ixUnique]
      end
      item
        Name = 'PK_CITY_STATE'
        Fields = 'ID'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'STATE_ABBRIVIATION;COUNTRY_ABBRIVIATION'
    MasterFields = 'ABBRIVIATION;COUNTRY_ABBRIVIATION'
    MasterSource = dsState
    StoreDefs = True
    TableName = 'CITY'
    Left = 672
    Top = 120
  end
  object dsCity: TDataSource
    AutoEdit = False
    DataSet = fbCity
    Left = 672
    Top = 168
  end
  object dsState: TDataSource
    AutoEdit = False
    DataSet = fbState
    Left = 616
    Top = 168
  end
  object dsCountry: TDataSource
    AutoEdit = False
    DataSet = fbCountry
    Left = 560
    Top = 168
  end
  object fbCustomers: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'COMPANY_NAME'
        Attributes = [faRequired]
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'ADDRESS'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'POSTCODE'
        DataType = ftWideString
        Size = 5
      end
      item
        Name = 'CITY'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'STATE'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'COUNTRY'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'COMPANY_TEL'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'COMPANY_FAX'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'COMPANY_EMAIL'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'CONTACT_NAME'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'CONTACT_EMAIL'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'CONTACT_TEL'
        DataType = ftWideString
        Size = 50
      end>
    IndexDefs = <
      item
        Name = 'PK_CUSTOMERS'
        Fields = 'ID'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ1_CUSTOMERS'
        Fields = 'COMPANY_NAME'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'COMPANY_NAME'
    StoreDefs = True
    TableName = 'CUSTOMERS'
    Left = 488
    Top = 120
  end
  object dsCustomers: TDataSource
    AutoEdit = False
    DataSet = fbCustomers
    Left = 488
    Top = 168
  end
end
